home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / cadence.arc / VOL1NO3.ARC / STAIR.LSP < prev    next >
Encoding:
Text File  |  1987-05-18  |  711 b   |  26 lines
  1. (defun C:STAIR ()
  2. (SETQ A (GETPOINT "\n Touch top Starting Point Of Staircase: "))
  3. (SETQ VER (GETDIST "\n Enter The Staircase Vertical Height: "))
  4. (SETq HOr (GETDISt "\n Enter The Horizontal Length Of One Stair:"))
  5. (SETQ X (CAR A))
  6. (SETQ Y (CADR A))
  7. (SETQ VER1 (/ VER 7.5))
  8. (SETQ VER2 (fix VER1))
  9. (SETQ VER 3 (+ VER2 0.5))
  10. (if (>= VER1 VER3)
  11. (SETQ W (+ VER2 1.0))
  12. (SETQ W VER2))
  13. (SETQ W1 (/ VER W))
  14. (SETQ ANG1 (* pi (/ 270.0 180.0)))
  15. (SETQ ANG2 (* pi (/ 0.0 180.0)))
  16. (SETQ S 1)
  17. (WHILE (<= S W)
  18. (SETQ PT1 (polar (LIST X Y) ANG1 W1))
  19. (SETQ PT2 (polar PT1 ANG2 HOR))
  20. (command "LINE" (LIST X Y) PT1 PT2 "")
  21. (SETQ X (+ X HOR))
  22. (SETQ Y (- Y W1))
  23. (SETQ S (+ 1 S)))
  24. (command "ERASE" "L" "")
  25. )
  26.